home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1446copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.7 KB  |  39 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1446"
  4. Company = "Simon and Schuster Interactive"
  5. title = "Frommer's 1996 Interactive Travel Guides: San Francisco"
  6. Price = 29.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows CD-ROM"
  13. Title Description = "Plan your perfect business or pleasure trip. Interactively discover and explore the best places to see, stay, and eat before you go! Nearly 1,000 full-color photos of sights, restaurants, and hotels help you make better travel decisions and avoid costly mistakes. And a convenient planner allows you to put it all together into a customized itinerary that you can print and take with you. Hundreds of photos help you choose hotels and restaurants. Extensive interactive maps. Connect with America Online and the Internet before you go to book reservations, check the latest weather, and find out what's hot right now! "
  14.  
  15. -------------------------------------
  16. dline = ""
  17. counter = 0
  18. repeat while dline <> title number
  19. counter = counter + 1
  20. dline = GetWord(1,   GetLine(titl,counter) )   
  21. test(dline = title number, LineInTitle = counter)
  22. end repeat 
  23.  
  24. starttitle = LineInTitle
  25. num of titles shown = 6
  26. endtitle = starttitle + num of titles shown - 1
  27. titles = ""
  28. title highlight = ""
  29. repeat with counter = starttitle to endtitle
  30. nextline = GetLine(titl,counter)
  31. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  32. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  33. end repeat
  34. dpage = CurrentPageID
  35.  
  36. newtitle = FALSE
  37. end if
  38.  
  39.